home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapdkak.plp < prev    next >
Text File  |  1993-11-30  |  18KB  |  580 lines
  1. /************************************************************************
  2. *    ダウンロード予約の確認・削除・変更                *
  3. ************************************************************************/
  4. %DOWNKAKUN{
  5.     A:=1;
  6.     loop({
  7.     %DOWNDATA @read(TEMPPATH|{\PVAPDOWN.DAT});
  8.     %TYPE @nth(@getline(DOWNDATA,A,1),1,{/});
  9.     case    (TYPE,
  10.         {プロフィール},        {PROFKAKU;im({Yes})},
  11.         {フォーラム},        {SIGBBSKAKU;im({Yes})},
  12.         {フォーラム指定発言},    {SigBbsKaku;im({Yes})},
  13.         {ＳＩＧ内会議室},    {SIGBBSKAKU;im({Yes})},
  14.         {ＳＩＧ内会議室指定発言},{SigBbsKaku;im({Yes})},
  15.         {ＳＩＧ内ＯＳＬ},    {SIGKAKU;im({Yes})},
  16.         {ＳＩＧ内ライブラリ},    {SIGKAKU;im({Yes})},
  17.         {ＢＢＳ},        {SIGBBSKAKU;im({Yes})},
  18.         {ＢＢＳ指定発言},    {SigBbsKaku;im({Yes})},
  19.         {ＣＵＧ内掲示板},    {CUGKAKU2;im({Yes})},
  20.         {ＣＵＧ内掲示板指定発言},{CugKaku;im({Yes})},
  21.         {ＣＵＧ内会議室},    {CUGKAKU2;im({Yes})},
  22.         {ＣＵＧ内会議室指定発言},{CugKaku;im({Yes})},
  23.         {ＣＵＧ内ＯＳＬ},    {CUGKAKU;im({Yes})},
  24.         {ＣＵＧ内ライブラリ},    {CUGKAKU;im({Yes})});
  25.     });
  26.     %DOWNDATA @read(TEMPPATH|{\PVAPDOWN.DAT});
  27.     case(DOWNDATA,{},{delfile(TEMPPATH|{\PVAPDOWN.DAT})});
  28. };
  29.  
  30. /*    表示用メモを準備する    */
  31. %memoprep{
  32.     CloseAllMemo;
  33.     madd(memono,{\n});
  34.     mclear(memono);
  35. };
  36.  
  37. /*    ＩＤ検索処理    */
  38. %IDsearch{
  39.     %memono1    @mlast+1;
  40.     %pickid{
  41.     %m  @nolmemo(memono1);
  42.     %n  @xlinenum;
  43.     %l1 @case    (n<1,
  44.             {Yes},    {im(@memo(memono1,1,1))},
  45.             {No},    {case    (n>m,
  46.                     {Yes},{im(@memo(memono1,m,1))},
  47.                     {No},{im(@memo(memono1,n,1))})});
  48.     im(@head(l1,{ }));
  49.     };
  50.  
  51.     %idsearch{
  52.     case (DOWNID,{},{DOWNID:=DOWNID2},,{DOWNID:=DOWNID|{,}|DOWNID2});
  53.     };
  54.  
  55.     case    (memono1>9,
  56.         {Yes},{SNDMSG({kaknin_f.snd});
  57.             select({メモ番号が一杯のためメモを開けません},
  58.                 99999,,)},
  59.         {No},
  60.         {CloseAllMemo;
  61.         madd(memono1,{\n});
  62.         mclear(memono1);
  63.         case    (@filechk(DIR1|{\PVAPLIST.DAT}),
  64.             {Yes},{mread(DIR1|{\PVAPLIST.DAT},memono1)});
  65.          mopen(memono1,320,21,639,459,{r});
  66.         footnote({選択中止},{b});
  67.         loop({
  68.         waitx();
  69.         case    (@xtype,
  70.             101,{%DOWNID2 @pickid;idsearch;im({No})},
  71.             201,{%DOWNID2 @pickid;idsearch;im({No})},
  72.             102,{im({No})},        202,{im({No})},
  73.             memono1,{%DOWNID2 @pickid;idsearch;im({No})},
  74.                 ,{im({Yes})});
  75.         });
  76.         case    (@mcheck==memono1,
  77.             {Yes},    {mclose(3)},
  78.             {No},    {CloseAllMemo;mopen(memono1);mclose(3)})});
  79. };
  80.  
  81. /*    プロフィールのダウンロード予約確認    */
  82. %PROFKAKU{
  83.     var DOWNID[64];
  84.     var ok[2];
  85.     DOWNID:=@head(@tail(@getline(DOWNDATA,A,{1}),{/}),{\n});
  86.     memoprep;
  87.     madd(memono,{プロフィールダウンロード\n}|
  88.         {【ダウンロードＩＤ】}|DOWNID|{\n});
  89.     mopen(memono,0,181,639,459,{r});
  90.     SNDMSG({kaknin_f.snd});
  91.     footnote({確認して下さい});
  92.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  93.         { 変更 },{CloseMEMO(memono);PROFHEN;A:=A+1},
  94.         { 削除 },{CloseMEMO(memono);DEL},
  95.         {  次  },{CloseMEMO(memono);A:=A+1});
  96. };
  97.  
  98. /*    プロフィールのダウンロード予約変更    */
  99. %PROFHEN{
  100.     loop({
  101.     SNDMSG({nyuryo_f.snd});
  102.     footnote({プロフィールダウンロード予約});
  103.     %a    @plane(    {cプロフィールダウンロード予約\n}|
  104.             {tﾀﾞｳﾝﾛｰﾄﾞID /\n}|
  105.             {s           / ＩＤ一覧 \n}|
  106.             {c　複数のIDのﾌﾟﾛﾌｨｰﾙをﾀﾞｳﾝする場合は}|
  107.             {｢,｣で区切って下さい\n}|
  108.             {s/ 登録 / 取消 \n},
  109.             DOWNID);
  110.     DOWNID:=@head(@getline(a,1,1),{\n});
  111.     %sel    @head(@getline(a,2,1),{\n});
  112.     ok:=    @head(@getline(a,3,1),{\n});
  113.     case(sel==1,{Yes},{IDsearch;im({Yes})});
  114.     });
  115.     %WRITE{
  116.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  117.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  118.         @getline(DOWNDATA,1,A-1)|
  119.         {プロフィール/}|
  120.         DOWNID|{\n}|
  121.         @getline(DOWNDATA,A+1));
  122.     };
  123.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  124. };
  125.  
  126. /*    ＳＩＧ・ＢＢＳの検索予約確認    */
  127. %SIGBBSKAKU{
  128.     var JUMP[8];
  129.     var FORUM[2];
  130.     var KEYWORD[8];
  131.     var DOWNID[50];
  132.     var KEYDAY[20];
  133.     var ok[2];
  134.     %DOWNTYPE    @nth(@getline(DOWNDATA,A,{1}),1,{/});
  135.     JUMP:=        @nth(@getline(DOWNDATA,A,{1}),2,{|});
  136.     FORUM:=        @nth(@getline(DOWNDATA,A,{1}),3,{|});
  137.     KEYWORD:=    @nth(@getline(DOWNDATA,A,{1}),4,{|});
  138.     DOWNID:=    @nth(@getline(DOWNDATA,A,{1}),5,{|});
  139.     KEYDAY:=    @head(@tail(@getline(DOWNDATA,A,{1}),{|}),{\n});
  140.     memoprep;
  141.     case(DOWNTYPE,
  142.         {フォーラム},    {madd(memono,{フォーラム検索\n}|
  143.                 {【　場　所　】}|JUMP|{ }|
  144.                     FORUM|{番フォーラム\n}|
  145.                 {【検索文字列】}|KEYWORD|{\n}|
  146.                 {【検索　ＩＤ】}|DOWNID|{\n}|
  147.                 {【検索　日付】}|KEYDAY|{\n})},
  148.         {ＳＩＧ内会議室},{madd(memono,{ＳＩＧ内会議室検索\n}|
  149.                 {【　場　所　】}|JUMP|{ }|FORUM|{番会議室\n}|
  150.                 {【検索文字列】}|KEYWORD|{\n}|
  151.                 {【検索　ＩＤ】}|DOWNID|{\n}|
  152.                 {【検索　日付】}|KEYDAY|{\n})},
  153.         {ＢＢＳ},    {madd(memono,{ＢＢＳ検索\n}|
  154.                 {【　場　所　】}|JUMP|{ }|FORUM|{番ＢＢＳ\n}|
  155.                 {【検索文字列】}|KEYWORD|{\n}|
  156.                 {【検索　ＩＤ】}|DOWNID|{\n}|
  157.                 {【検索　日付】}|KEYDAY|{\n})});
  158.     mopen(memono,0,181,639,459,{r});
  159.     SNDMSG({kaknin_f.snd});
  160.     footnote({確認して下さい});
  161.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  162.         { 変更 },{CloseMEMO(memono);SIGBBSHEN;A:=A+1},
  163.         { 削除 },{CloseMEMO(memono);DEL},
  164.         {  次  },{CloseMEMO(memono);A:=A+1});
  165. };
  166.  
  167. /*    ＳＩＧ・ＢＢＳの検索予約変更    */
  168. %SIGBBSHEN{
  169.     loop({
  170.     SNDMSG({nyuryo_f.snd});
  171.     footnote(DOWNTYPE|{検索予約});
  172.     %a    @plane(    {c}|DOWNTYPE|{検索予約\n}|
  173.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ /12345678\n}|
  174.             {tボード番号 /12\n}|
  175.             {t検索文字列 /12345678\n}|
  176.             {t検索ＩＤ   /\n}|
  177.             {s           / ＩＤ一覧 \n}|
  178.             {c　｢,｣で区切って複数指定します  }|
  179.                 {最大１０ＩＤまでです\n}|
  180.             {t検索日付   /12345678901234567\n}|
  181.             {c　ＰＣ－ＶＡＮのマニュアルの通りに指定して下さい\n}|
  182.             {s/ 登録 / 取消 \n},
  183.             JUMP,FORUM,KEYWORD,DOWNID,KEYDAY);
  184.     JUMP:=        @head(@getline(a,1,1),{\n});
  185.     FORUM:=        @head(@getline(a,2,1),{\n});
  186.     KEYWORD:=    @head(@getline(a,3,1),{\n});
  187.     DOWNID:=    @head(@getline(a,4,1),{\n});
  188.     %sel        @head(@getline(a,5,1),{\n});
  189.     KEYDAY:=    @head(@getline(a,6,1),{\n});
  190.     ok:=        @head(@getline(a,7,1),{\n});
  191.     case(sel==1,{Yes},{IDsearch;im({Yes})});
  192.     });
  193.     %WRITE{
  194.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  195.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  196.         @getline(DOWNDATA,1,A-1)|
  197.         DOWNTYPE|{/|}|
  198.         JUMP|{|}|FORUM|{|}|KEYWORD|{|}|
  199.         DOWNID|{|}|KEYDAY|{\n}|
  200.         @getline(DOWNDATA,A+1));
  201.     };
  202.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  203. };
  204.  
  205. /*    ＳＩＧからのダウンロード予約確認    */
  206. %SIGKAKU{
  207.     var JUMP[8];
  208.     var OSLNUM[2];
  209.     var DOWNNUM[3];
  210.     var ok[2];
  211.     %DOWNTYPE    @nth(@getline(DOWNDATA,A,{1}),1,{/});
  212.     JUMP:=        @nth(@getline(DOWNDATA,A,{1}),2,{/});
  213.     OSLNUM:=    @nth(@getline(DOWNDATA,A,{1}),3,{/});
  214.     DOWNNUM:=    @head(@tail(@getline(DOWNDATA,A,{1}),{/}),{\n});
  215.     memoprep;
  216.     case    (DOWNTYPE,
  217.         {ＳＩＧ内ＯＳＬ},
  218.         {madd(memono,{ＳＩＧ内ＯＳＬダウンロード\n}|
  219.             {【　場　　所　】}|JUMP|{ }|OSLNUM|{番ＯＳＬ\n}|
  220.             {【ファイル番号】}|DOWNNUM|{番\n})},
  221.         {ＳＩＧ内ライブラリ},
  222.         {madd(memono,{ＳＩＧ内ライブラリダウンロード\n}|
  223.             {【　場  所　】}|JUMP|{ }|OSLNUM|{番ライブラリ\n}|
  224.             {【情報  番号】}|DOWNNUM|{番\n})});
  225.     mopen(memono,0,181,639,459,{r});
  226.     SNDMSG({kaknin_f.snd});
  227.     footnote({確認して下さい});
  228.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  229.         { 変更 },{CloseMEMO(memono);OSLLIBHEN;A:=A+1},
  230.         { 削除 },{CloseMEMO(memono);DEL},
  231.         {  次  },{CloseMEMO(memono);A:=A+1});
  232. };
  233.  
  234. /*    ＳＩＧからのダウンロード予約変更    */
  235. %OSLLIBHEN{
  236.     SNDMSG({nyuryo_f.snd});
  237.     footnote(DOWNTYPE|{ダウンロード予約});
  238.     %a    @plane(    {c}|WHERE|{ダウンロード予約\n}|
  239.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ     /12345678\n}|
  240.             {tOSL･ﾗｲﾌﾞﾗﾘ番号 /12\n}|
  241.             {tﾌｧｲﾙ･情報 番号 /123\n}|
  242.             {s/ 登録 / 取消 \n},
  243.             JUMP,OSLNUM,DOWNNUM);
  244.     JUMP:=        @head(@getline(a,1,1),{\n});
  245.     OSLNUM:=    @head(@getline(a,2,1),{\n});
  246.     DOWNNUM:=    @head(@getline(a,3,1),{\n});
  247.     ok:=        @head(@getline(a,4,1),{\n});
  248.     %WRITE{
  249.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  250.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  251.         @getline(DOWNDATA,1,A-1)|
  252.         WHERE|{/}|
  253.         JUMP|{/}|
  254.         OSLNUM|{/}|
  255.         DOWNNUM|{\n}|
  256.         @getline(DOWNDATA,A+1));
  257.     };
  258.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  259. };
  260.  
  261. /*    ＳＩＧ・ＢＢＳの指定発言ダウンロード予約確認    */
  262. %SigBbsKaku{
  263.     var JUMP[8];
  264.     var FORUM[2];
  265.     var DOWNMES[100];
  266.     var ok[2];
  267.     %DOWNTYPE    @nth(@getline(DOWNDATA,A,{1}),1,{/});
  268.     JUMP:=        @nth(@getline(DOWNDATA,A,{1}),2,{/});
  269.     FORUM:=        @nth(@getline(DOWNDATA,A,{1}),3,{/});
  270.     DOWNMES:=    @nth(@getline(DOWNDATA,A,{1}),4,{/});
  271.     memoprep;
  272.     case(DOWNTYPE,
  273.         {フォーラム指定発言},
  274.             {madd(memono,{フォーラム指定発言ダウンロード\n}|
  275.                 {【　場　所　】}|JUMP|{ }|
  276.                     FORUM|{番フォーラム\n}|
  277.                 {【発言  番号】}|DOWNMES|{\n})},
  278.         {ＳＩＧ内会議室指定発言},
  279.             {madd(memono,{ＳＩＧ内会議室指定発言}|
  280.                         {ダウンロード\n}|
  281.                 {【　場　所　】}|JUMP|{ }|FORUM|{番会議室\n}|
  282.                 {【発言  番号】}|DOWNMES|{\n})},
  283.         {ＢＢＳ指定発言},
  284.             {madd(memono,{ＢＢＳ指定発言ダウンロード\n}|
  285.                 {【　場　所　】}|JUMP|{ }|FORUM|{番ＢＢＳ\n}|
  286.                 {【発言　番号】}|DOWNMES|{\n})});
  287.     mopen(memono,0,181,639,459,{r});
  288.     SNDMSG({kaknin_f.snd});
  289.     footnote({確認して下さい});
  290.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  291.         { 変更 },{CloseMEMO(memono);SigBbsHen;A:=A+1},
  292.         { 削除 },{CloseMEMO(memono);DEL},
  293.         {  次  },{CloseMEMO(memono);A:=A+1});
  294. };
  295.  
  296. /*    ＳＩＧ・ＢＢＳの指定発言ダウンロード予約変更    */
  297. %SigBbsHen{
  298.     SNDMSG({nyuryo_f.snd});
  299.     footnote(DOWNTYPE|{ダウンロード予約});
  300.     %a    @plane(    {c}|DOWNTYPE|{ダウンロード予約\n}|
  301.             {tｼﾞｬﾝﾌﾟｺｰﾄﾞ /12345678\n}|
  302.             {tボード番号 /12\n}|
  303.             {t 発言 番号 /\n}|
  304.             {s/ 登録 / 取消 \n},
  305.             JUMP,FORUM,DOWNMES);
  306.     JUMP:=        @head(@getline(a,1,1),{\n});
  307.     FORUM:=        @head(@getline(a,2,1),{\n});
  308.     DOWNMES:=    @head(@getline(a,3,1),{\n});
  309.     ok:=        @head(@getline(a,4,1),{\n});
  310.     %WRITE{
  311.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  312.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  313.         @getline(DOWNDATA,1,A-1)|
  314.         DOWNTYPE|{/}|
  315.         JUMP|{/}|FORUM|{/}|DOWNMES|{/\n}|
  316.         @getline(DOWNDATA,A+1));
  317.     };
  318.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  319. };
  320.  
  321. /*    ＣＵＧの検索予約確認    */
  322. %CUGKAKU2{
  323.     var CUG[8];
  324.     var PASS[8];
  325.     var MAINNUM[2];
  326.     var KEIJI[2];
  327.     var KEYWORD[8];
  328.     var DOWNID[50];
  329.     var KEYDAY[20];
  330.     var ok[2];
  331.     %DOWNTYPE    @nth(@getline(DOWNDATA,A,{1}),1,{/});
  332.     CUG:=        @nth(@getline(DOWNDATA,A,{1}),2,{|});
  333.     PASS:=        @nth(@getline(DOWNDATA,A,{1}),3,{|});
  334.     MAINNUM:=    @nth(@getline(DOWNDATA,A,{1}),4,{|});
  335.     KEIJI:=        @nth(@getline(DOWNDATA,A,{1}),5,{|});
  336.     KEYWORD:=    @nth(@getline(DOWNDATA,A,{1}),6,{|});
  337.     DOWNID:=    @nth(@getline(DOWNDATA,A,{1}),7,{|});
  338.     KEYDAY:=    @head(@tail(@getline(DOWNDATA,A,{1}),{|}),{\n});
  339.     memoprep;
  340.     case    (DOWNTYPE,
  341.         {ＣＵＧ内掲示板},{madd(memono,{ＣＵＧ内掲示板検索\n}|
  342.                 {【　場　所　】}|CUG|{ }|KEIJI|{番掲示板\n}|
  343.                 {【検索文字列】}|KEYWORD|{\n}|
  344.                 {【検索　ＩＤ】}|DOWNID|{\n}|
  345.                 {【検索　日付】}|KEYDAY|{\n})},
  346.         {ＣＵＧ内会議室},{madd(memono,{ＣＵＧ内会議室検索\n}|
  347.                 {【　場　所　】}|CUG|{ }|KEIJI|{番会議室\n}|
  348.                 {【検索文字列】}|KEYWORD|{\n}|
  349.                 {【検索　ＩＤ】}|DOWNID|{\n}|
  350.                 {【検索　日付】}|KEYDAY|{\n})});
  351.     mopen(memono,0,181,639,459,{r});
  352.     SNDMSG({kaknin_f.snd});
  353.     footnote({確認して下さい});
  354.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  355.         { 変更 },{CloseMEMO(memono);CUGHEN;A:=A+1},
  356.         { 削除 },{CloseMEMO(memono);DEL},
  357.         {  次  },{CloseMEMO(memono);A:=A+1});
  358. };
  359.  
  360. /*    ＣＵＧの検索予約変更    */
  361. %CUGHEN{
  362.     loop({
  363.     SNDMSG({nyuryo_f.snd});
  364.     footnote(DOWNTYPE|{検索予約});
  365.     %a    @plane(    {c}|DOWNTYPE|{検索予約\n}|
  366.             {tＣＵＧ名    /12345678\n}|
  367.             {tパスワード  /12345678\n}|
  368.             {s            / 検索 \n}|
  369.             {tﾒｲﾝﾒﾆｭｰ番号 /12\n}|
  370.             {tボード 番号 /12\n}|
  371.             {t検索文字    /12345678\n}|
  372.             {t検索ＩＤ    /\n}|
  373.             {s            / ＩＤ一覧 \n}|
  374.             {c　｢,｣で区切って複数指定します  }|
  375.                 {最大１０ＩＤまでです\n}|
  376.             {t検索日付    /12345678901234567\n}|
  377.             {c　ＰＣ－ＶＡＮのマニュアルの通りに指定して下さい\n}|
  378.             {s/ 登録 / 取消 \n},    CUG,PASS,MAINNUM,KEIJI,
  379.                         KEYWORD,DOWNID,KEYDAY);
  380.     CUG:=        @head(@getline(a,1,1),{\n});
  381.     PASS:=        @head(@getline(a,2,1),{\n});
  382.     %sel        @head(@getline(a,3,1),{\n});
  383.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  384.     KEIJI:=        @head(@getline(a,5,1),{\n});
  385.     KEYWORD:=    @head(@getline(a,6,1),{\n});
  386.     DOWNID:=    @head(@getline(a,7,1),{\n});
  387.     %sel2        @head(@getline(a,8,1),{\n});
  388.     KEYDAY:=    @head(@getline(a,9,1),{\n});
  389.     ok:=        @head(@getline(a,10,1),{\n});
  390.     case(sel==1,{Yes},{case(CUG={},
  391.                 {No},    {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
  392.                     im({Yes})},,{im({Yes})})});
  393.     case(sel2==1,{Yes},{IDsearch;im({Yes})});
  394.     });
  395.     %WRITE{
  396.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  397.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  398.         @getline(DOWNDATA,1,A-1)|
  399.         DOWNTYPE|{/|}|
  400.         CUG|{|}|PASS|{|}|MAINNUM|{|}|KEIJI|{|}|KEYWORD|{|}|
  401.         DOWNID|{|}|KEYDAY|{\n}|
  402.         @getline(DOWNDATA,A+1));
  403.     };
  404.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  405. };
  406.  
  407. /*    ＣＵＧの指定発言ダウンロード予約確認    */
  408. %CugKaku{
  409.     var CUG[8];
  410.     var PASS[8];
  411.     var MAINNUM[2];
  412.     var NUMBER[2];
  413.     var DOWNMES[100];
  414.     var ok[2];
  415.     %DOWNTYPE    @nth(@getline(DOWNDATA,A,{1}),1,{/});
  416.     CUG:=        @nth(@getline(DOWNDATA,A,{1}),2,{/});
  417.     PASS:=        @nth(@getline(DOWNDATA,A,{1}),3,{/});
  418.     MAINNUM:=    @nth(@getline(DOWNDATA,A,{1}),4,{/});
  419.     NUMBER:=    @nth(@getline(DOWNDATA,A,{1}),5,{/});
  420.     DOWNMES:=    @nth(@getline(DOWNDATA,A,{1}),6,{/});
  421.     memoprep;
  422.     case    (DOWNTYPE,
  423.         {ＣＵＧ内掲示板指定発言},{madd(memono,
  424.                 {ＣＵＧ内掲示板指定発言ダウンロード\n}|
  425.                 {【　場　所　】}|CUG|{ }|NUMBER|{番掲示板\n}|
  426.                 {【発言　番号】}|DOWNMES|{\n})},
  427.         {ＣＵＧ内会議室指定発言},{madd(memono,
  428.                 {ＣＵＧ内会議室指定発言ダウンロード\n}|
  429.                 {【　場　所　】}|CUG|{ }|NUMBER|{番会議室\n}|
  430.                 {【発言　番号】}|DOWNMES|{\n})});
  431.     mopen(memono,0,181,639,459,{r});
  432.     SNDMSG({kaknin_f.snd});
  433.     footnote({確認して下さい});
  434.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  435.         { 変更 },{CloseMEMO(memono);CugHen;A:=A+1},
  436.         { 削除 },{CloseMEMO(memono);DEL},
  437.         {  次  },{CloseMEMO(memono);A:=A+1});
  438. };
  439.  
  440. /*    ＣＵＧの指定発言ダウンロード予約変更    */
  441. %CugHen{
  442.     loop({
  443.     SNDMSG({nyuryo_f.snd});
  444.     footnote(DOWNTYPE|{ダウンロード予約});
  445.     %a    @plane(    {c}|DOWNTYPE|{ダウンロード予約\n}|
  446.             {tＣＵＧ名    /12345678\n}|
  447.             {tパスワード  /12345678\n}|
  448.             {s            / 検索 \n}|
  449.             {tﾒｲﾝﾒﾆｭｰ番号 /12\n}|
  450.             {tボード 番号 /12\n}|
  451.             {t 発言  番号 /\n}|
  452.             {s/ 登録 / 取消 \n},    CUG,PASS,MAINNUM,NUMBER,
  453.                         DOWNMES);
  454.     CUG:=        @head(@getline(a,1,1),{\n});
  455.     PASS:=        @head(@getline(a,2,1),{\n});
  456.     %sel        @head(@getline(a,3,1),{\n});
  457.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  458.     NUMBER:=    @head(@getline(a,5,1),{\n});
  459.     DOWNMES:=    @head(@getline(a,6,1),{\n});
  460.     ok:=        @head(@getline(a,7,1),{\n});
  461.     case(sel==1,{Yes},{case(CUG={},
  462.                 {No},    {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
  463.                     im({Yes})},,{im({Yes})})});
  464.     });
  465.     %WRITE{
  466.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  467.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  468.         @getline(DOWNDATA,1,A-1)|
  469.         DOWNTYPE|{/}|
  470.         CUG|{/}|PASS|{/}|MAINNUM|{/}|NUMBER|{/}|DOWNMES|{/\n}|
  471.         @getline(DOWNDATA,A+1));
  472.     };
  473.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  474. };
  475.  
  476. /*    ＣＵＧからのダウンロード予約確認    */
  477. %CUGKAKU{
  478.     var CUG[8];
  479.     var PASS[8];
  480.     var MAINNUM[2];
  481.     var OSLNUM[2];
  482.     var DOWNNUM[3];
  483.     var ok[2];
  484.     %DOWNTYPE    @nth(@getline(DOWNDATA,A,{1}),1,{/});
  485.     CUG:=        @nth(@getline(DOWNDATA,A,{1}),2,{/});
  486.     PASS:=        @nth(@getline(DOWNDATA,A,{1}),3,{/});
  487.     MAINNUM:=    @nth(@getline(DOWNDATA,A,{1}),4,{/});
  488.     OSLNUM:=    @nth(@getline(DOWNDATA,A,{1}),5,{/});
  489.     DOWNNUM:=    @head(@tail(@getline(DOWNDATA,A,{1}),{/}),{\n});
  490.     memoprep;
  491.     case    (DOWNTYPE,
  492.         {ＣＵＧ内ＯＳＬ},
  493.         {madd(memono,{ＣＵＧ内ＯＳＬダウンロード\n}|
  494.             {【　場　　所　】}|CUG|{ }|OSLNUM|{番ＯＳＬ\n}|
  495.             {【ファイル番号】}|DOWNNUM|{番\n})},
  496.         {ＣＵＧ内ライブラリ},
  497.         {madd(memono,{ＣＵＧ内ライブラリダウンロード\n}|
  498.             {【　場  所　】}|CUG|{ }|OSLNUM|{番ライブラリ\n}|
  499.             {【情報  番号】}|DOWNNUM|{番\n})});
  500.     mopen(memono,0,181,639,459,{r});
  501.     SNDMSG({kaknin_f.snd});
  502.     footnote({確認して下さい});
  503.     select({確認して下さい},99999,{CloseMEMO(memono);A:=A+1},
  504.         { 変更 },{CloseMEMO(memono);CUGOSLHEN;A:=A+1},
  505.         { 削除 },{CloseMEMO(memono);DEL},
  506.         {  次  },{CloseMEMO(memono);A:=A+1});
  507. };
  508.  
  509. /*    ＣＵＧからのダウンロード予約変更    */
  510. %CUGOSLHEN{
  511.     loop({
  512.     SNDMSG({nyuryo_f.snd});
  513.     footnote(DOWNTYPE|{ダウンロード予約});
  514.     %a    @plane(    {c}|DOWNTYPE|{ダウンロード予約\n}|
  515.             {tＣＵＧ名       /12345678\n}|
  516.             {tパスワード     /12345678\n}|
  517.             {s               / 検索 \n}|
  518.             {tﾒｲﾝﾒﾆｭｰ   番号 /12\n}|
  519.             {tOSL･ﾗｲﾌﾞﾗﾘ番号 /12\n}|
  520.             {tﾌｧｲﾙ･情報 番号 /123\n}|
  521.             {s/ 登録 / 取消 \n},
  522.             CUG,PASS,MAINNUM,OSLNUM,DOWNNUM);
  523.     CUG:=        @head(@getline(a,1,1),{\n});
  524.     PASS:=        @head(@getline(a,2,1),{\n});
  525.     %sel        @head(@getline(a,3,1),{\n});
  526.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  527.     OSLNUM:=    @head(@getline(a,5,1),{\n});
  528.     DOWNNUM:=    @head(@getline(a,6,1),{\n});
  529.     ok:=        @head(@getline(a,7,1),{\n});
  530.     case(sel==1,{Yes},{case(CUG={},
  531.                 {No},    {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
  532.                     im({Yes})},,{im({Yes})})});
  533.     });
  534.     %WRITE{
  535.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  536.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  537.         @getline(DOWNDATA,1,A-1)|
  538.         WHERE|{/}|
  539.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  540.         OSLNUM|{/}|
  541.         DOWNNUM|{\n}|
  542.         @getline(DOWNDATA,A+1));
  543.     };
  544.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  545. };
  546.  
  547. /*    ダウンロード予約削除    */
  548. %DEL{
  549.     %del{
  550.     setcdir(DIR1);
  551.     delfile(TEMPPATH|{\PVAPDOWN.DAT});
  552.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  553.         @getline(DOWNDATA,1,A-1)|
  554.         @getline(DOWNDATA,A+1));
  555.     };
  556.     SNDMSG({kaknin_f.snd});
  557.     footnote({削除してよろしいですか？});
  558.     select({削除してよろしいですか？},99999,,
  559.         {  削除する  },del,
  560.         { 削除しない },);
  561. };
  562.  
  563. /*    実行    */
  564. %Filechk @filechk(TEMPPATH|{\PVAPDOWN.DAT});
  565. %memono @mlast+1;
  566. case    (Filechk,
  567.     {No},    {SNDMSG({kaknin_f.snd});
  568.         footnote({予約済のダウンロードはありません});
  569.         select({予約済のダウンロードはありません},
  570.             99999,,
  571.             { 確認 },)},
  572.     {Yes},    {case    (memono==9,
  573.             {Yes},
  574.             {SNDMSG({kaknin_f.snd});
  575.             footnote({メモ９を削除してもよろしいですか？});
  576.             select    ({メモ９を削除してもよろしいですか？},
  577.                 99999,,    { は  い },{%memono {9};DOWNKAKUN},
  578.                     { いいえ },)},
  579.             {No},{DOWNKAKUN})});
  580.